home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / objextd.mac < prev    next >
Text File  |  1998-08-03  |  4KB  |  115 lines
  1. *-----------------------------------------------------------------------------*
  2. *     Macro aidant à la création de l'objet fenêtre application principale    *
  3. *        Contient la définition de l'objet fenêtre                            *
  4. *-----------------------------------------------------------------------------*
  5.  
  6. GWVA_WAPP_STRUCT_HEAD:    macro ;METHODLIST_PTR;NAME;MENU_SPEC_PTR;WPROPERTIES;SHORTCUTLIST_PTR
  7.  
  8.         ; CLASS;METHODLIST_PTR;NAME;SHORTCUTLIST_PTR;PROPERTIES
  9.     GWVA_OBJ_STRUCT_HEAD GWVA_CLASS_WIND.APP,\1,\2,\5
  10.         ; ;FATHER_PTR;NEXT_BROTHER_PTR;FIRST_SON_PTR
  11.     GWVA_OBJ_STRUCT_FAMILY
  12.  
  13.         ; FLAGS,PROPERTIES,NAME_PTR,INFO_PTR;TOPABLE_STATE
  14.     IFNC "\4",""
  15.     GWVA_WIND_STRUCT_BASE    0,\4,0,0
  16.     ELSE
  17.     GWVA_WIND_STRUCT_BASE    0,0,0,0
  18.     ENDC
  19.  
  20.         ; ;ICON_WIND_PTR;MENU_SPEC_PTR;MOUSE_SPEC_PTR
  21.     GWVA_WIND_STRUCT_DEF_EXTEND ,\3
  22.  
  23.         ; FIRST_EXT_DX,FIRST_EXT_DY;FIRST_INT_VISIBLE_W,FIRST_INT_VISIBLE_H;FIRST_CONTENTS_W,FIRST_CONTENTS_H;FIRST_CONTENTS_DX,FIRST_CONTENTS_DY;FIRST_INT_BORDERS_W,FIRST_INT_BORDERS_H
  24.     GWVA_WIND_STRUCT_FIRST_GEOMETRY 0,0
  25.  
  26.     GWVA_WIND_STRUCT_USER        ; ;USER_PTR1;USER_PTR2
  27.  
  28.         endm
  29.  
  30. *-----------------------------------------------------------------------------*
  31. *    Macro aidant à la création de l'objet fenêtre menu          *
  32. *        Contient la définition de l'objet ressource              *
  33. *-----------------------------------------------------------------------------*
  34.  
  35. GWVA_MENU_STRUCT_HEAD:    macro TREE;NAME;PROPERTIES
  36.         ; CLASS;METHODLIST_PTR;NAME;SHORTCUTLIST_PTR;PROPERTIES
  37.     GWVA_OBJ_STRUCT_HEAD GWVA_CLASS_MENU,,\2
  38.         ; ;FATHER_PTR;NEXT_BROTHER_PTR;FIRST_SON_PTR
  39.     GWVA_OBJ_STRUCT_FAMILY
  40.  
  41. ; Les 3 virgules sont nécessaires à la bonne compilation, et on ne sait pas pourquoi !    
  42.     GWVA_RSC_STRUCT_BASE \1,\3,,,    ; TREE;PROPERTIES;IDX;DEPTH
  43.     GWVA_RSC_STRUCT_CLONE    ; ;IS_CLONE_FORM,CLONE_MAIN_PTR;CLONE_FORM_SAVE
  44.  
  45.         endm
  46.  
  47. *-----------------------------------------------------------------------------*
  48. *  Macro aidant à la création d'une fenêtre iconifiée de base et formulaire   *
  49. *-----------------------------------------------------------------------------*
  50.  
  51. GWVA_WIND_ICONIFIED_STRUCT_HEAD:    macro CLASS,NAME_PTR,ICON_WIND_PTR;NAME;METHODLIST_PTR
  52.     IFNC "\4",""
  53.         ; CLASS;METHODLIST_PTR;NAME;SHORTCUTLIST_PTR;PROPERTIES
  54.      GWVA_OBJ_STRUCT_HEAD \1,\5,\4
  55.         ; ;FATHER_PTR;NEXT_BROTHER_PTR;FIRST_SON_PTR
  56.      GWVA_OBJ_STRUCT_FAMILY
  57.  
  58.     ELSE
  59.         ; CLASS;METHODLIST_PTR;NAME;SHORTCUTLIST_PTR;PROPERTIES
  60.      GWVA_OBJ_STRUCT_HEAD \1,\5,'Giwn'
  61.         ; ;FATHER_PTR;NEXT_BROTHER_PTR;FIRST_SON_PTR
  62.      GWVA_OBJ_STRUCT_FAMILY
  63.  
  64.     ENDC
  65.  
  66.         ; FLAGS,PROPERTIES,NAME_PTR,INFO_PTR;TOPABLE_STATE
  67.     GWVA_WIND_STRUCT_BASE    MASK_NAME|MASK_MOVER,0,\2,0
  68.  
  69.         ; ;ICON_WIND_PTR;MENU_SPEC_PTR;MOUSE_SPEC_PTR
  70.     GWVA_WIND_STRUCT_DEF_EXTEND \3
  71.  
  72.         ; FIRST_EXT_DX,FIRST_EXT_DY;FIRST_INT_VISIBLE_W,FIRST_INT_VISIBLE_H;FIRST_CONTENTS_W,FIRST_CONTENTS_H;FIRST_CONTENTS_DX,FIRST_CONTENTS_DY;FIRST_INT_BORDERS_W,FIRST_INT_BORDERS_H
  73.     GWVA_WIND_STRUCT_FIRST_GEOMETRY 0,0
  74.  
  75.     GWVA_WIND_STRUCT_USER        ; ;USER_PTR1;USER_PTR2
  76.  
  77.     endm
  78.  
  79. GWVA_WRSC_ICONIFIED_STRUCT:    macro NAME_PTR,ICON_WIND_PTR,IDX;NAME;METHODLIST_PTR
  80.         ; CLASS,NAME_PTR,ICON_WIND_PTR;NAME;METHODLIST_PTR
  81.     IFNC "\5",""
  82.      GWVA_WIND_ICONIFIED_STRUCT_HEAD GWVA_CLASS_WIND.RSC,\1,\2,\4,\5
  83.     ELSE
  84.      GWVA_WIND_ICONIFIED_STRUCT_HEAD GWVA_CLASS_WIND.RSC,\1,\2
  85.     ENDC
  86.  
  87.     GWVA_WRSC_STRUCT_BASE    \3    ; TREE;PROPERTIES;IDX;DEPTH
  88.     GWVA_WRSC_STRUCT_CLONE        ; ;IS_CLONE_FORM,CLONE_MAIN_PTR;CLONE_FORM_SAVE
  89.  
  90.     endm
  91.  
  92. *-----------------------------------------------------------------------------*
  93. *  Macro aidant à la création d'une fenêtre toolbar de base              *
  94. *-----------------------------------------------------------------------------*
  95.  
  96. GWVA_WIND_TOOLBAR_STRUCT_HEAD:    macro CLASS,PROPERTIES,FATHER_PTR;FIRST_SON_PTR;NEXT_BROTHER_PTR;OBJ_NAME;METHODLIST_PTR
  97.  
  98.         ; CLASS;METHODLIST_PTR;NAME;SHORTCUTLIST_PTR;PROPERTIES
  99.      GWVA_OBJ_STRUCT_HEAD \1,\7,\6
  100.         ; ;FATHER_PTR;NEXT_BROTHER_PTR;FIRST_SON_PTR
  101.      GWVA_OBJ_STRUCT_FAMILY \3,\5,\4
  102.  
  103.         ; FLAGS,PROPERTIES,NAME_PTR,INFO_PTR;TOPABLE_STATE
  104.     GWVA_WIND_STRUCT_BASE    0,GWVA_WIND_MASK_TOOLBAR|(\2),0,0
  105.  
  106.         ; ;ICON_WIND_PTR;MENU_SPEC_PTR;MOUSE_SPEC_PTR
  107.     GWVA_WIND_STRUCT_DEF_EXTEND
  108.  
  109.         ; FIRST_EXT_DX,FIRST_EXT_DY;FIRST_INT_VISIBLE_W,FIRST_INT_VISIBLE_H;FIRST_CONTENTS_W,FIRST_CONTENTS_H;FIRST_CONTENTS_DX,FIRST_CONTENTS_DY;FIRST_INT_BORDERS_W,FIRST_INT_BORDERS_H
  110.     GWVA_WIND_STRUCT_FIRST_GEOMETRY 0,0
  111.  
  112.     GWVA_WIND_STRUCT_USER        ; ;USER_PTR1;USER_PTR2
  113.  
  114.     endm
  115.